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_ (ピン フ ) 人 の 【 引 | 約 旨 上 | 入 | ん 
平和 の ad 日 時 旧 際 間 困 際 


アタマ + 順 子 4 組 と いう 役 。 テン パイ の か た だ たち は か な ら ず リ ャ ン 
メン 待ち 以上 に な る よ 。 門前 "で の み 役 に な る よ 。 


を 電 NMR 上 H 旧 朋 ロ me 上 


字 ハ イ と ーー ルル ハ イ を 含ま ず 、 2 一 8 の 数 ハイ だ け で 作る 役 だ 。 


も 計時 HH 


ー 茶 口 


手 の 中 に 同じ 順子 が 2 組 ある も の 。 門前 で の み 役 に な る よ 。 


と 」 役 K リャン / ツ や く ) 


全 事 人 た 引 計 引 引 引 [ele 


字 ハ イ 、 一 ハイ を すべ て に 含ん だ 手 。 食 うと 一 棒 下 が る よ 。 


(DSGS90 1wTe 内 | Aa |@ D ] 
日 OUHCUHCUHM 介 旧 上 

同種 ハイ に よる 同じ 組み 合わ せ の 順子 を 3 組 そろ えた も の 。 食 う 
と 一 本 下 が る 4 Oo 


(サン ショ ン ) = 二 IKET を 
ニ 色 同 鹿 尿 | : 昌 | 記 % | pH 
同じ 数 の 順子 を 、 万 子 、 索 子 、 筒 手 と も 3 組 そ ろ え た も の 。 食う 


ょ 一 棒 下 が る よ 。 
709  ※ 門 前 ニチ ー、 ポ ン 、 明 カン を し な いか た ち 。 


同種 ハイ で 1 一 9 まで 、 つ まり 1 2 3、456、789 の 順子 を 
そろ えた も の 。 食 うと 一 宮下 が る よ 。 


(サン ドウ ボン ) 


同じ 数 の ハイ を 、 万 子 、 索 子 、 筒 子 と も 刻 子 で そろ えた も の 。 
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暗 刻 3 組 を そろ えた 役 。 テ ン パ イ が シャ ン ポ ン 待 ちの 場合 は ツモ 


ら な けれ ば ダメ だ よ 。 
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| 計 の 三 元 ペ イ の 1 種 を アタ マ と し 、 他 の 2 種 を 刻 子 で そろ え 
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アタ マッ 1 組 と 刻 子 4 組 と いう か た ちの 役 。 ポ ボン を 利用 し て 作っ て 
いく ん だ 。 
(サン レン コ オ ) HH 音 必 民 ま ! 靖 上 の | の 
三 連 刻 188|3|E EEF 昌 Hi る ああ | あ | あ | 呈 | 
同種 ハイ の つづ き 数 の 記子 を 3 組 を そろ えた も の 。 
(サン カン ツ ) ー|-| 一 | 入 I 和 IAI 和 A 介 |@ @ 9 ey 
三 横 子 あ も | ああ | ああ | あ | あ | @| 9| @ EK た 友 


横 子 3 組 を そろ えた 役 。 横 子 は 暗 カ ン で も 明 カ ン で も いい よ 。 
※ 暗 カン ニ 門 前 で 横 子 を 作る 。 ※ 明 カン 食っ て 横 子 を 作る 。 770 


七 対 チ @ 記 世 | F NN 


対 子 7 組 を そろ えた 役 。 別名 、 ニ コ ニ ュ と 呼ぶ ん だ 。 25 フ で 計算 
する 特別 な 手 だ よ 。 


時 和 間 HHHRRSHHSE 


一 奏 口 を 2 組 そ ろ え た も の 。 門 前 で の み O K だ よ 。 


EE た た 症 仁 旧 朋 肝 瞳 


字 ハ イェ と 1 種類 の 数 ヘイ だ け で 作っ た 役 。 食 うと 一 宇 下 が る よ 。 


HIEPPPI IP 


すべ て の 組み 合わ せ に 一 ー 九 ハイ を 含ん だ 手 。 つま 。 字 ハ イ を 含 
まな い 全 葵 色 だ よ 


混 老 頭 き we LOP は 回 RE コピ 


HH 


1 種類 の 数 ハイ だ け で 作っ た 役 。 食 うと 五 請 に な る よ 。 
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配 バイ に 順子 、 刻 子 は も ちろ ん 、 ベ ペン チャ ン 、 カ ンチ ャ ン も な く 
バラ バラ の 手 。 そ の うち の 2 ハイ が 対 子 じゃ な きゃ ダメ だ よ 。 
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暗 刻 4 組 を そろ えた 役 。 手 の 中 に 4 組 の 暗 刻 が で き て 単騎 待ち に 
な っ た 場合 は 、 2 倍 の 役 満 (ダブ ル 役 満 ) に な る よ 。 


(コク シム ソウ ) | 一 | ん eee| 88 pl 
国土 無双 |』|』 軸 層 陣 国 和 引 gl| 生 違 
字 ハ イ 、 ー ル ハイ を すべ て そろ え 、 その うち の ひと つ を アタ マ に 
し た 役 。13 種 が 手 の 中 に そろ っ て 13 面 待ち の 場合 は 2 倍 役 満 だ よ 


HIPPPH 四 四 四 
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字 ハ イ だ け で 作っ た 役 。 つ まり 、 字 ハイ だ け に よる 対 々 和 な ん だ 。 


大 三 元 | | | 科 半 人 


|! の 三 元 パ イ を 3 組 と も 刻 子 に し た 役 。 他 の 5 コ の ハイ の 種 
類 、 組 み 合 わせ は な ん で も いい ん だ 。 


(ショ ウス ー シ イ ) - #_1 
小 四 坪 率 天 逢 引 | 上 関 時 gg 
計 引 ml* の 4 種 の 風 ハイ の うち 、 3 組 を 刻 子 に し 、 残り の 1 組 を 


アタ マ に し た も の 。 あ と 1 組 の ハイ は 順子 で も 刻 子 で も いい よ 。 
チン 


ー ル ハイ だ け で 作っ た 役 
MY う わけ 。 
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| 底 坦 月 (\ イ テイ ツモ )… 海 旗 ハ イ で ツモ ア か ダリ し た 役 。 
「e 泊 底 揚 昭 〈\ イ テイ ロン ) … 海 旗 ハ イ を ツモ っ た 入 の ス : 
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we 一 発 て イン バツ ) リー チ し た あと 、 区 の ツモ まで に ア : 
「 カッ レ 役 。 ーー ' 
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| の まま もの すけ あか 表 衝 9 お もそ がき キテ ー 放 
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10 CGEN2:CGSET,0:SPRTTEON:VIEW 

12 Y=4:CH=0:T1=0:NM=2:TE=0 

15 LOCATE7,0:PRINTTE:" ":LOCATE25,0:PRTINTNM:" " 

20 DEFMOVE( 0 ) =SPRTTE(0,3,1,2,0,0) :POSTTTON0,100,192:MOVE0 
30 DEFMOVE( 1 ) =SPRTTE(14,5,1,6,0,0) :POSTTTON1 , 1 2 , 20 : MOVE1 


設 5(1) マ D 最 : こ 
定 ^ に リ り E 初 : の 
し 性 し ます 王 。 
し カ が M 初 ji ロ ラリ り テ 
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GOSUB650 


S が 1( コ ント ロー *m の 右 が 押 
され る ) な ら 、 500 行 の サ プ ル ー チ 
ン (マリ オ を へ 動か す 部 分 ) へ 、 
S が 2( コ ント ロー Fm ー の 充 が 押 
され る ) な ら 、 550 行 の サブ プル ー 
チン (マリ オ を 左 へ 動か す 部 分 ) へ 
行く 。 

も し 、 T 1 に 1 が 入っ て いた ら 
(マリ オ の 撃っ た タマ が 発射 し て 
いた ら )、650 行 へ いっ て タマ を 
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TT1 が 0 で 、TT が 8( コ ン トロ ー 
ラー の ⑳ ボ タン ) だ っ た ら 、 600 行 
へ いっ て タマ を 発射 する 。 


も し 、 カ ニ さん の Y 座 標 ( 縫 の 位 
置 ) が 170 を 越え た ら 、 155 千 へい 
〈 。 


カニ さん の 酸 っ た タマ が 止ま っ て 
いた 伺 、700 行 (カニ さん が タマ 
を 発射 す る サブ ルー チン ) へ いく 。 
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リオ の 所 まで 動か す ) へ いて 。 


カニ さん が 止ま っ て いた ら 、Y の 

値 で を れ ぞ れ の サ プ ルー チン へ 
行 *。 \ Y = 1 な ら 430 行 。 

Y= 2 なら 450 行 ・・・ 


750 行 (カニ さん の 撃っ 計 タマ と 
マリ オ が あたっ た か どう か を 調 
べ る サブ ルー チン ) へ いく 。 
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TF XPOS( 0 ) >210 THEN RETURN 
DEFMOVE( 0 ) =SPRTTE(0,3,1,3) :MOVE0 
: RETURN 

TF XPOS(0 )<30 THEN RETURN 
DEFMOVE(0 ) =SPRITE(0,7,1,3) :MOVE0 

: RETURN 
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750 TF XPOS( 0 ) <XPOS( 2 ) AND XPOS( 0 )+12>XPOS ( 2 ) AND YPOS 
( 0 ) <YPOS ( 2 ) AND YPOS( 0 )+12>YPOS( 2 ) THEN 770 
760 RETURN 
770 NM=NM- 1 :LOCATE 25,0:PRINT NMz" ":TF NM<0 THEN 1500 
780 DEF MOVE(0)=SPRITE(10,1,1,10):CH=0:Y=4:MOVE0 
: PLAYNO3FOCFCFC" 
785 1TF MOVE(0) THEN 785 
790 RETURN 20 
800 IF XPOS(1)<TX AND XPOS(1)+12>TX AND YPOS(1)<TY AND 
ypPOS(1)+12>TY THEN 820 
ーー 810 RETURN 
_ | 820 SPRITEO:TX=XPOS( 0 ) : TY=YPOS( 0 ) : TE=TE+5:LOCATE 
7,0:PRINT TE "0" 
830 DEF MOVE( 1 ) =SPRITE(10,1,1,8):MOVE 1 
835 PLAY"O3FOEGFEGFEG" 
840 IF MOVE( 1 ) THEN 840 
849 T1=0:CH=0:Y=4:RETURN 30 
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コン ピュ ー タ ー は 必ず GOSUB 
て いっ た こと を お ぼ え て いる 、。 だ か ら 
GOTO で も どっ た りす る と , いっ た 
こと が か さ な っ て ,。 お ぼ え きれ な く 


1510 LOCATE 5,5sPRTNT" テ ンス ウ "TE "テン " 
1520 LOCATE 5,8:PRTNT" モウ イチ ド シ マ スカ Y/N" 
1530 A$=TNKEY$:TF A$=""THEN 1530 

TF A$="Y" THEN RUN 


ン gk 


「+ 


FTON0,100,19 


20 | 09 お 1。 8 
2 :MOVE0 

30 DEFMOVE ( 1 ) =SPRITE(14,5, 0.0)* ・ POSTTTON1 1 は 。20 
:MOVE1 

0 DEFSPRTTEO,(0,0,0,1,0)=CHR$(213) PE 


Ns GOsOB500。 550 
140 TE T1= GOSUB600 
150 TE Y 05(1) 1707HN155 
TTF MOVE(2)=0 ET 
155 TEF CH=4 AND MOVE( 1 ) 
160 TF MOVE( 1 ) =0 THEN oNy GOS0B430,450,4 4180,400 
180 GOSUB 750 
190 GOSUB 800 
199 GOTO100 
こぐ の 400 DEFMOVE( 1 ) =SPRTT 
430 ーー 5PR.- 


1RRORN XPOS(0 ) >210 THEN 


510 ーー : MOVE0 :RETURN 


(0)<30 r SET 
560 DEPNOVE(0)=SPRrTE(0。 7 


員 定 T1 =1 : TX=XPOS /TX/TY:RET 


7E(2) TiRETORN 5,1,((180-YEOS(1 ) ) /2 ) ) 
rrON2。XPOS1) ,YPO5(1)16:AMOV2 


75 rpm XPos, ( 0 ) <XPOS( 2 ) AND XPOS( 0 ) +12>XPOS( 2 ) AND 
YPOS( 2 ) AND YPOS( 0 ) +12>YPOS( 2 ) THEN 770 


RETURN 
NM=NM- 1 :LOCATE 25,0:PRINT NMz:" ":TF NM<0 THEN 


YOVB0pAYVO3FOGPGPGY 


790 


800 TF XPOS( 1 )<TX AND XPOS(1)+12>TX AND YPBOS( 1 ) <TY 


AND 
810 


820 SPRTTE0:TX=XPOS( 0 ) : TY=YPOS( 0 ) : TE=TE+5:LOCATE 7 


RETURN 20 


YPOS( 1)+12>TY THEN 820 
RETURN 


,0:PRTNT TEz"0" 


830 
835 
840 
849 
900 


DEF MOVE( 1 ) =SPRTTE(10,1,1,8):MOVE 1 
PLAY"O3FOEGFEGFEG"' 
TF MOVE( 1 ) THEN 840 
T1=0 sCH=0:Y=4:RETURN 30 
CUT0 :Z=(XPOS( 0 ) -XPOS( 1 ) ) / 2 
DEFMOVE ( 1 ) =SPRTTE(14,3,1,Z) :MOVE1 
TF MOVE( 1 ) THEN920 
DEF MOVE( 0 ) =SPRTTE(10,1,2,50 ) :MOVE0 
PLAY"O3COGEBAGECDFAGEB" 
TF MOVE( 0 ) THEN 928 
CH= 0 s NM=NM- 1 : TE NM<O0 THEN 1500 
RETURN15 
CLS:SPRTTE OFF 
OOAOPE 5 BEDRTNW" テッ 9 Py テッ 
LOCATE 5,8:PRTNT" モウ イチ ド シマ スカ Y/N" 
A$=TNKEY$:TF A$=""THEN 1530 
TEF A$="Y" THEN RUN 
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110 TEF MOVE(0)=0 AND Y=0 GOSUB 500 
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1500 PAU 


1505 Tr 5E30:C THEN LOCATE 5,5:PRTNT" パー フェ クト ボー ナメ 30 
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10 CLS:TA$= リ "リタ シ ザン リ WsHT$= リ ヒ キ ザ ン リ WsKA$= リ カケ ザ ン リ WsW 
A$=" ワ リザ ン ツ WiX$= リ 7 10 タイ リ 

20 GOSUB5000 

30 CLS:sLOCATE3, 5 : PRTNT" サン スウ コッ コ / ノ ハジ マリ デス 。 

40 LOCATE3 , 7 : PR TNT"" シ タカ ラ モン ダイ ヲ エラ ン デ クダ サイ .! 

50 LOCATE7,10:sPRTNTTA$ 7? 。。 。 。 1" 


60 LOCATE7, 12:PRTNTHT$ 7?" 。。。。 < 凍 
70 LOCATE7 , 1 4 sPRTNTKA$ 7?" 。。。。 。 1 
80 LOCATE7,16:PRTNTWA$ 7 リ 。。。。.4" 
90 TITNPUTA 


100 CLS:S=0:M=0:ONA GOTO 1000,2000,3000,4000 
1000 LOCATE6,8:PRTNTTA$,X$ 

1010 GOSUB6000 

1020 FOR T=1TO10:GOSUB5500 

1050 LOCATE8,16:PRTINTX: リ タス "Yi ワ 2? 
1060 TNPUTK 

1070 1TF K=X+Y THEN 1100 

1080 GOSUB7000 :NEXT:GOTO9000 
1100 GOSUB8000 

1110 NEXT:GOTO9000 

2000 LOCATE6,8:PRTINTHT$,X$ 
2010 GOSUB6000 
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2040 GOSUB5500 

2050 LOCATE 8,16:PRINTX+Y:" ヒ ク "2 7 220 
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2080 GOSUB7000 :NEXT:GOTO9000 
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レ し てこ だ さい 。 な お 玉 は 和 壁 に ぶつ か る と は ね かえ る の で 、 
長 を うま ぐ 使 っ て よこ ね ら つ て こ だ さ い 。 


10 CGEN2:CGSET,0:SPRTTEON : VTEW 
20 DEFEMOVE ( 0 ) =SPRTTE(0,3,1,4,.0,0) :POSTTTON0,120,16 
8 : MOVE0 

うり どど B=0 記 4 こ 0 ==0 = TFT 到 =0 ?m= 30 

100 S=SPTTCK( 0 ) smT=STRTG( 0 ) 

110 TFMOVE(0)=0 ONS GOSUB500,550 
130 TFMOVE( 1 ) =0 AND P8=1GOSUB650 
135 TFT=8 AND P8=0 GOSUB600 
140 TFMOVE(2)=0 AND PB4=1GOSUB750 
145 TFT=4 AND PB4=0 GOSUB700 

158 TFMOVE( 5 ) =0THENL=0 :GOTO165 
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160 TFL=1THEN170 
165 GOSUB800 
170 TFXPOS( 5 ) <XPOS ( 1 ) ANDXPOS( 5 )+16>XPOS( 1 ) ANDYPOS ( 
5 ) <YPOS ( 1 ) ANDYPOS( 5 )+16>YPOS( 1 ) GOSUB1000 

180 TFXPOS( 5 ) <XPOS ( 2 ) ANDXPOS ( 5 ) +1 6 > XPOS( 2 ) ANDYPOS ( 
5 ) <YBOS ( 2 ) ANDYPOS ( 5 ) +16>YPOS( 2 ) GOSUB1100 

199 GOTO100 

500 TIFXPOS( 0 ) >198RETURN 

530 DEFMOVE ( 0 ) =SPRTTE( 0, 3, 1,2 ) :MOVE0 : RETURN 

550 TFXPOS( 0 ) <38RETURN 

580 DEFMOVE ( 0 ) =SPRTTE( 0, 7, 1 ,2 ) :MOVE0 : RETURN 

600 DEFMOVE( 1 ) =SPRTTE(12,2,1,4,0,0) :POSTTTON1 , XPOS 
(0 )+8,YPOS( 0 ) : MOVE 1 :P8= 1 :P1 =1 :TA=TA- 1 

610 LOCATE23,0:PRTNTTAz" ":RETURN 

650 TFYPOS( 1 ) <40THEN P8=0:ERA1 :POSTTTON1,120,168:R 
ETURN1 40 

651 D2=XPOS( 1 ) / 8-2:A2=-(D2=0 ) - ( D2=8 ) - ( D2=18 ) -(D2=2 
6 ) 

652 TF A2=1 AND P1=0 THEN P1=1 :GOTO665 

653 ITF A2=1 AND P1=1 THEN P1=O:GOTO672 

654 TFP1=1THEN665 

655 GOTO672 

665 DEFMOVE ( 1 ) =SPRTTE( 12,2,1,3) :MOVE1 :RETURN1 40 
672 DEFMOVE ( 1 ) =SPRTTE( 12,8,1,3) :MOVE1 : RETURN1 40 
700 DEFMOVE ( 2 ) =SPRTTE (12,8,1,2,0,0) :POSTTTON2 , XPOS 
( 0 ) , YPOS ( 0 ) :MOVE2:P4=1 :P2=0:TA=TA- 1 

710 LOCATE23,0:PRTNTTAz"" ":RETURN 

750 1TFYPOS( 2 ) <40THENP4=0:ERA2:E2=0 :POSTTTON2 , 1 20, 1 
68 : RETURN 

751 D1=XPOS( 2 ) / 8-2:A=-(D1=0 ) -(D1=8 ) -(D1=18) -(D1=26 ) 
752 TEF A=1 AND P2=1 THEN P2=0:GOTO765 

753 TF A=1 AND P2=0 THEN P2=1 :GOTO772 

754 TFP2=0THEN765 

755 GOTO772 

765 DEFMOVE( 2 ) =SPRTTE(12,8,1, 3) :MOVE2 :RETURN158 
772 DEFMOVE ( 2 ) =SPRTTE( 1 2 , 2, 1 , 3 ) : MOVE2 : RETURN158 
800 X=RND( 180 )+24:G=RND( 2 ) 

805 TF TA<1 THEN 1500 

810 TEFG=1THENG=2 ェ :GOTO830 

820 G=5 

830 DEFMOVE ( 5 ) =SPRTTE(G,5,4,60,0) :POSTTTON5 ,X,30:M 
OVE5:L=1 :RETURN 

1000 ERA1:P8=0:L=0:TE=TE+5:DEFMOVE( 5 ) =SPRTTE(10,1, 
1 , 8 ) :MOVE5: PLAY"O4GOCGCGC" 

1010 LOCATE8,0:PRTNTTE: "0" 

1020 TFTA=0THEN1500 

1030 POSTTTON1,100,168:RETURN 

1100 ERA2:P4=0:L=0:TE=TE+ 5 :DEFMOVE ( 5 ) =SPRTTE(10,1, 
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1120 TFTA=0THEN1500 

1130 POSTTTON1,100,168:RETURN 

1500 SPRTITEOFEF :CLS : LOCATE5 , 1 0 :PRTNT "アナ タ ノ テン スウ ハリ 
1510 LOCATE5,12:PRTNTTE:"0 テン テス 「" 
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等 で 作 て 入信 て 全 べ 六 い 孝 さ 竹 て 竹 い 考 で た も た も た た に も た も た て たと た も た に た た に た に た た に に に 
うさ チュ) ゃ 必 の 人 公 公 人 ぶ タマ トン や クッ ムシ マム 


2 人 で 遊ぶ ゲー ム で す 。 ゞ 
ボタン の 上 下 を お し て 、 バ パ バド 提 
ル を 動 の し て 、 玉 を は ね が え 
し て こく ださい 。 先 に 21 点 と っ だ 万 が 勝ち で す 。 
も っ つと も 量 本 的 な ゲー ハム で す 。 レ イア ウト シ 
ー ト は ピン ボン 2 と いつ し ょ で す 。 


10 CGEN3 :CGSET, 0 : SPRTTEON : VTEW : TOR 
15 Y1=90:Y2=90:TP=1 :PT=1 :BX=120:BY=100:TD=0 
20 DEFSPRTTEO,(0,0,1,1,0)=CHR$(207 ) 
30 FORT=1TO4:DEFSPRTTET,(0,0,1,1,0 ) =CHR$( 226 ) : NEXT 
50 SPRTTE1,20,Y1:SPRTTE3,20,Y1+8:SPRTTE2,228,Y2:SP 
RTTE4,228,Y2+8 
60 LOCATE1,21:PRTNT"1PLAYER  ":P1:LOCATE15,21:PRTN 
T"2PLAYER  ":P2 
100 81=STTCK( 0) :52=STTCK( 1 } 
110 ONS1 GOSUB299,299,299,200,299,299,299,220 
120 ONS2 GOSUB299,299,299,250,299,299,299,270 
130 ON TP GOSUB300,350 
140 ON PT GOSUB400,450 
150 GOSUB480 
199 GOTO 100 
200 IFY1>168RETURN 
210 Y1=Y1+4:SPRTTE1 ,20,Y1 :SPRTTE3,20,Y1+8:RETURN 
220 TFY1<32RETURN ' 
230 Y1=Y1-4:SPRTTE1 ,20,Y1 :SPRTTE3,20,Y1+8:RETURN 
250 1TFY2>168RETURN 
260 Y2=Y2+4:SPRTTE2,228,Y2:SPRTTE4,228,Y2+8:RETURN 
270 TFY2<32RETURN 
280 Y2=Y2-4:SPRTTE2,228,Y2:SPRTTE4,228,Y2+8:RETURN 
299 RETURN 
300 TF BX<5THENTP=2:P2=P2+1 : :RETURN1000 
310 BX=BX-6:RETURN 
350 TF BX>240THENTP=1 :P1=P1+1 :RETURN1000 
360 BX=BX+6:RETURN 
400 TF BY<32THENPT=2:PLAY"A0":RETURN 
410 BY=BY-TD:RETURN 

クタ タ 


人 
py 珍 < ンタ 。 


ah YO 


450 1F BY>174THENPT=1 :PLAY"A0":RETURN 

460 BY=BY+TD:RETURN 

480 SPRTTE0O,BX,BY 

500 TEF TP=1ANDBX<26ANDBX>20ANDBY>Y1-8ANDBY+8<Y1+22 
THENTP=2 : TD=RND( 6 ) : PLAY "COE" :RETURN 

510 TF TP=2ANDBX> 220ANDBX<234ANDBY>Y2-8ANDBY+8<Y2+ 
22THENTP= 1 : TD=RND( 6 ) : PLAY "B0G" : RETURN 

520 RETURN 

1000 LOCATE1,21:PRTINT"1PBLAYER  ":P1:LOCATE15,21 : PR 
TNT"2PLAYER  "zP2 

1010 PT=1:BX=120:BY=100:TD=0:PLAY"T102CDET203EGAC" 
: PAUSE80 

1020 TF P1=21 OR P2=21THEN1500 

1030 GOTO 100 

1500 CLS:SPRTTE OFF 

1510 TF P1>P2 THENKA=1 :GOTO1530 

1520 KA=2 

1530 LOCATE 7,5:PRTINTP1 リー タイ "iPB277 テリ 

1540 LOCATE 5,8:PRTNT "PLAYER "KA / カチ リ 

1550 LOCATE 8,12:sPRTNT" モ ウイ チ ド シマ スカ 『" 

1560 LOCATE 6,14:PRTNT" リ ャ メル トキ ハ N キ ネー 『" 

1570 A$=TNKEY$:TF A$=""THEN1570 

1580 TF A$="N"THENEND 

1590 RUN 


ピン ポン 1 が さら に むず か し こ な っ た ゲー ム で み 略 


遊び 万 は ピン ポン 1 と 同じ で す が 、 玉 の 動き が 複雑 で す の 旧 
で 、 よ こく ねら つて 、 慎重 に パドル を 動 ひ の し て こ だ さ い 。 ご 購 
れ も 先 に 21 齋 と っ た おら が 脇 ち で す 。 


10 CGEN3:CGSET , 0 : SPRTTEON :VTEW 

15 PLAY"M1V10Y2T3O4":P1=100:P2=100:Y1=25:TP=1 :PT=1 

20 DEFSPRTTE0,(0,0,0,1,0)=CHR$( 207 ) 

25 FORT=1TO6:DEFSPRTTET,(0,0,0,1,0) =CHR$( 226 ) :NEXT 

30 PALETS 0,&HF,&H30,&H26,&H12 

35 RESTORE2000:Y1=100:TD=3 

40 SPRTTE 1,16,P1:SPRTTE 2,16,P1+8:SPRTTE3,16,P1+1 

6:SPRTTE4,232,P2:SPRTTE5,232,P2+8:SPRTTE6,232,P2+16 


225 


100 S1=STTCK( 0 ) :S2=STTCK( 1 ) :F 1 =STRTG( 0 ) :F2=STRTG( 1 ) 
105 GOSUB400 

110 ONTP GOSUB300,310 

120 ONPT GOSUB330 , 340 

125 GOSUB350 

130 ONS1 GOSUB299,299,299,200,299,299,299,220 

140 ONS2 GOSUB299,299,299,250,299,299,299,270 

150 SPRTTE1,16,P1 :SPRTTE2,16,P1+8:SPRTTE3,16,P1+16 
:SPRTTE4,232,P2:SPRTTE5,232,P2+8:SPRTTE6,232,P2+16 
199 GOTO100 

200 TFP1 >160RETURN 
210 P1=P1+8:RETURN 
220 TFP1 <32RETURN 
230 P1=p1 -8:sRETURN 
250 TFP2>160RETURN 
260 P2=P2+8:RETURN 
270 TFP2<32RETURN 
280 P2=P2-8:RETURN 
299 RETURN 

300 B1=B1+1 :RETURN 
310 B1=B1-1 :RETURN 
330 Y1=Y1+TD:RETURN 
340 Y1=Y1-TD:RETURN 
350 BO=B1 :GOSUB600 
360 TFB1=15THENTP=2:PLAY"GO":GOTO380 

370 TIFB1=1THENTP= 1 

380 SPRTTEO,Y1 ,A:RETURN 

400 TF Y1<25 AND Y1>15 AND P1-6<A+6 AND P1+28>A+2 
THEN PT=1 :TD=3:PLAY"CO0"sGOSUB495 : RETURN 

410 TF Y1>220 AND Y1<230 AND P2-6<A+6 AND P2+28>A+ 
2 THEN PT=2:TD=3:PLAY"BO":GOSUB495:RETURN 

420 TF Y1<10 AND PT=2 THEN T2=T2+1 :PT=1 :GOSUB 480< 
GOTO440 

430 TF Y1>240 AND PT=1 THEN T1=T1+1 : PT=2 GOSUB 480 
sGOTO440 

440 TEF T1=21 OR T2=21 RETURN1500 

450 RETURN 

480 LOCATEO,22:PRTNT"PLAYER1 "jm1:LOCATE14,22:PRTN 
TV"PLAYER2 ":T2 

490 PLAY"O4GOFEABEGFAFECGEFC"sY1=100:TD= 3: RETURN 
495 TF PT=1 AND F1=8 THEN TD=TD+5 : RETURN 

496 TF PT=2 AND F2=8 THEN TD=TD+ 5 : RETURN 

499 RETURN 

600 ONBO RESTORE2000,2001,2002,2003,2004,2005,2006 
z2007,2008,2009,2010,2011,2012,2013,2014 


ウイ 2) 


610 READA:RETURN 


1500 
20 

1510 
1520 
すり 
1540 


1550 
1560 


TFP1>T2 THEN A$="PLAYER 1”sTE=T1 sT=T2:sGOTO15 


A$="PLAYER 2":TE=T2:T=T1 
PAUSE50:CLS s SPRTTEOFF 
LOCATE5 , 5 : PRTNT "WTNNER "':A$ 
LOCATE8, 8:PRINTTE" タイ "2 還 
LOCATE5, 1 0 :PRTNT "モウ イチ ド シマ スカ  Y/N" 
A$=TNKEY$: TFA$=" "THEN1560 

TFA$= "NTiHENEND 

RUN 
DATA50 
DATA51 
DATA53 
DATA56 
DATA60 
DATA65 
DATA71 
DATA78 
DATA86 
DATA95 
DATA105 
DATA116 
DATA130 
DATA152 
DATA176 
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キー オーー オ ーー キーー オ ーー 


SAVE と いう の は 、 ペー シッ ャ ゲ で 


W 作っ た ケ ※ー ム を カセ モッ ト に 入れ る と き 
に 使う ん だ 。 


SAVE と は 反対 に 、 カ セッ ト か ら プ ログ ラム 
を と り 出す こと を LO AD と よん で いる 。 人 か 間 
いて も わけ の わか ら な い 音 を 、 コン ピュ ー タ は る 
の 中 か ら 正 し く 信号 を と り だ すん だ 。 だ けど 、 
くら ュ ン ピュ ー タ で も 斉 が 小 きか っ た り 、 雑 彰 が 
入っ て いる ば あい に は 正しく 信号 を 変 か ん する こ 
と が で き な い ん だ ネ 。 

? TP ERROR が 出る と き は 、 ッッ ビュー ズ 
が 正しく し OAD できない た め だ 。 ど うし て か と 
いう と 、 昔 が 小さき か っ た り 、 レコ ー ダ ー の ヘッ ド 
が よこ ' れ て い る ば あい が 考え られ る 。 よく レコ ー 
ダー を 調べ て みよ う 。 


(ーー テレ エ 
いき 


さ 


いり 


り ァ OF(T m こ と の 


よう 


きき や で 。 プロ グラ ム の SAVE、 L0AD は それ それ 命令 か \ 用 
意 さ きれ て いる 。 SAVE す る た め の 手 順 は 、 ま ず SAVE フ 
ァイル 名 ” と 入力 する 。 こ こ で すぐ 、 (リタ ー ン ) 
キー を お し て は ダメ だ 。 カ セッ ト を レコ ー ダ ー に セッ ト し 録音 
状態 に し て お 《。 テ ー プ が まわ り は じ め た ら [RETURN | キ 
ー を お すん だ 。 画面 に は 、 WRITING ファ イル 名 と 表示 き 
れ て くる よ 。 こ れ は 、 レコ ュー ダー に 録音 き さ れ て いま す よ と いう 
合図 で 、 ぜん - ぶ 記 億 する と OK か 表示 され 完了 と な る 。 

LOAD は 、 まず LOAD と 入力 し て 、 LRETURN 」 キ ー を 
お し 、 プロ グラ ム を 再生 する 。 し ば らく する ょ 、 画 画 に し O A 
DING フ ァイル 名 と 表 わ れ 、 し ば らく する と OK が 出る よ 。 

BG グ ラフ ィ ッ ク は 、 カセ ッ ト 専 用 の メニ ュー が 放 意 され て 
いる 。 IESC| (エス ケー プ ) キー を お し た と き に F 1LE と い 
う 項目 が 出 て く る の で 、 こ こ に カ ー ソ ル を あわ せ 、 っ 
ー を お す 。 画 画 が 変 変わ っ て 、 SAVE (5) LOAD (L) ? 
と 表示 され る 。S AVE の ば あい S、 LOAD の 場合 [を お し 
て ほしい 。 ビ | LE NAME^ と 表 わ れ る の で 、 名 前 を 入力 し 
RETURN | キー を お せ ば いい ん だ 。 SAVE の と き WR 1 T 
ING は 1 回 し か 出 な い が 、 LOAD の と き は LOADING 
が 4 回 表 わ れる 。 こ れ は 画面 デー タ を 4 回 に わけ て 記憶 し て い 
る か ら な ん だ 。 も し 、 4 回 ROAD ING が 出 な いと き は 、 ち 
ゃ ん と 巻き も ど し て 、 LOAD す る こ こ 。 画面 デー タ を 読も う 
と し て ペー シッ ク の プロ グラ ム を LOAD し た ば あい に は SK 
1P と いう 表示 に な る が 、 BG グ ラフ ィ ッ ク で は 、 画面 デー タ 
し か 読め な いか ら が 


専 。 ロー ドラ ン ナ ー の 画面 の S A V 
E 己 LOAD は どう や る の 


ロー ドラ ン ナ ー は 、SAVE・LOAD の 指定 を コン トロ ー 
ラー で お こ な う 。 ゲ ー ム が スタ ー ト し た と き の メ ニュ ー で 
EDIT MODE に あわ せ ス ター ト ボ タン を お せ ば いい ん だ 。 
これ で 画面 は エディ ッ ト 状 態 に な る 。 モ レク ト ボ タン を お す と 、 

メニ ュー が 表 わ れ 、 さら に お す と SAVE、 LOAD の 順番 に 
か わる 。 SAVE す る ば あい は 、 セレ クト ボタ ン で S AVE に 
あわ せ 、 レ コー ダー を 録音 状態 に し て スタ ー ト ボタ ン を お す 。 
ここ まで の 手順 、 ち ゃ ん と わか っ た か な 。 | 

モー フ が 完了 する と 、 エ ディ ッ ト の 画面 に も どる 。LOAD 
の ば あい に は この 反対 で 、 モ レク ト ボ タン で LOAD に あわ せ 
て お いて 、 ス ター ト ボ タン を お す 。 こ こま で きた ら 、 レ コー ダ 


さい せい 


ー の 再生 に か か る ん だ 。 
レッ ロー ダー ー を 再生 し て 、 LOAD し 終 
わる と 、 SAVE し た 画面 が ディ 
スプ レイ 上 に 表 わ れ て くる 。 こ 
の よう に 、SAVE と か し O 
AD の 機能 を 使う と 、 自 分 の 
ォ リ ジ ナ ル の 画面 を た くさ ん 
作っ て 、 保存 する こ と が で き 


る ん だ 。 お も し ろ い も の が で な の で 電 肝 LA 
きた ら 、 友 だ ち に 見 せ て あげ よう 。 


PALET 文 と COLOR 文 は 、 ハー ドウ ェ ア 


2 せつ か ん けい いれ い せつ めい た い へ ん 


直接 関係 の ある 命令 で 、 4 わし 4 説明 する と 大変 
や や こし いん だ 。 図 を 見 な が ら 8 読ん で みて ね 。 つ ま り 、 
ュ ン ピュ ー タ の な か に は 、 形 を 記憶 し て いる キャ ラク ター・ ジ 


か た ち ちゅ う 


ェ ネ レー ター と いう も の が あっ て 、 この 形 に よっ て パレ ッ ト 中 


いろ けん し ゅ う 


に 書か れ て いる 色 を 検出 し 、 ビデ オ 信 号 に する ん だ 。 着色 の メ 
カニ ズム は 、 ま ず 、COLOR 文 で カラ ー・ ア トリ ビュ ー ト を 


いろ は い 


操作 し て 、 こ の アト リ ビ ュ ー ト が 色 の 入っ て いる パレ ッ ト の グ 
ルー プ " を さして いる 。 ルン の あっこ) ァ ま の 


か た ち な い くい ろ じ ょ うほ う 


ター の 形 に よ っ て 7 内 の 各色 情報 が ビデ オ 


か い ろ ん じょう 


回 路 に 送ら れ 、 画面 上 に 色 の つい た キャ ラク ター 
を 見 る こ と が で きる ん だ 。PALET 命 令 は 、 絵 
具 を パレ ッ ト に 出す よう な も の と お ぼ え て お こう 。 

PALET に は BG 用 と スプ ライ ト 用 が あっ て 、 


それ ぞ れ PALETB と PALETS と な っ て い 


0 
ン な 


カ 
1 
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DEF MO VE は 、 決め られ た 
完 ザ の を 効果 的 に 動か す た め に 
作ら れ た 命令 だ けど 、 自分 で キャ ラク タ 『 
ー を 組み 合わ せ て 、 そ れ を スプ ライ ト 面 に 表示 す 
る こと は で き な い ん だ 。 だ か ら フ ァ ミ リー ペー シ 
ッ ク で は 、 DEF SPRITE 文 を 用 意 し て い 相 
DEF SPR 1 TE で は 、 表 示す る キャ ラク 
ター を 文字 式 で 与 を る こと で 、 自 由 に 組み 合わ せ 
る こと が で きる 。 ペー シッ ク の 取 扱 説明 書 で は マ 
り ォ を 例 に 説明 し て い る け と 、 この は か に も いろ 
いろ 指定 する こと が で きる ソ 。DEF SPRIT 
E は 、4 キ ャ ラク ター モー ド と 1 キャ ラク ター モ 
ー ド が あっ て 、4 キャ ラモー ド で は 2 X 2 キャ ラ 
クタ ー の 組み 合わ せ と な る 。 DEF SPRITE は 
キャ ラク ター ー を 決め る 命令 だ か ら 、 こ れ だ け は 画 
面 に 表示 する こと は で き な い ん だ 。 表 示さ せる た 
め に は 、SPRI TE 文 を 使う こと に な る 。 
これ は 、 ち ょ うど DEF MOV 
E が ペア に な っ て いる の と 同じ 
0 
ア と な っ て い る 。 当然 、S 
RITE ON を 実生 し て ス 
プラ イト を 表示 で きる よう に 


し て お か な けれ ば な ら な いん 


「J 


in 
品 | 
り 


3 は ざり ) 圭 


エラ ー を お こ さ な い だ め に は 、 どん な エラ ー が ある の 
か を よ 〈 知 っ て い る 必要 が ある ね 。 よ く 出る エラ ー 


せつ めい 


と 対 策 を ここ 説明 し よう 。 


『A 


人 


(①S N QFO TE - こ と ば の 使い まち が い 。 文 字 の つづ り 、 
カッ コ の な か の 変 数 の 数 、 カン マ な ど を よく 見 る こ ia 


アイ エル 


② 1 L 電 いい 2 の 値 許容 範囲 外 の と ーー に 


くせ つめ い 会 で 


出 て し まう ん だ 。 変数 を 使っ て いる と き は 、 直接 命令 


リン ト し て みる こと だ 。 そ し て 、 どう し て を ん ん 潮 に な る 
の か よく 考え て みる ん だ 。 た と えば 、 POS 
ITION 1, X, Y と いう と ころ で 出 た 
ば あい は 、PR INT  X, Y と や っ て みて 
X。 Y の 値 を 調べ て みる 。 X が 負 の 値 (マイ 
ナス ) に な っ て いた り 、255 を こえ て いた ら 、 
どう し て そう な る か 考え て みよ う 。 た と えば 、 
メー X+ 1 と し な が ら 255 を こえ た と き の 条 
件 文 (1 F 文 ) を つけ て いな いこ と が 考え ら 
れる ゾ 。 は ほか に も いろ いろ ある が 、 マ ニュ ア 
ル の エラ ー メ ッ セ ー ジ を 参考 に し て 
デバ パッ グ に 挑戦 し て みる 

の 0 ん に と うみ ん ん 
22 の 
Ne わり OUT2 
AN SS 


icO 全 ささ OfEE は 一 MIH 


DEF MOVE を 


実行 し た けど ご 、 画 
面 に 出 て き ませ ん ん 。 


DEF MOVE 文 は 、 アニ メキ ャ ラク ター の 動 

ーー 作 を 決め る た め の ス テー トメ ント で 、 こ れ を 実行 し た か 

もとい っ で 。 画面 に は アニ メキ ャ ラク ター は 出 て こない ん だ 。 

ます 、 SPRITE ON を 実行 し 、 画 面 に アニ メキ ャ ラク タ 

ー を 出す モー ド に する 。 つ ぎ に 、DEF MOVE 文 で 動作 を 決 

め 、 POS1TION 廊 で 位置 を 決定 する 。 こ こま で が 、 初 
設定 と よ ば れる 部 分 。 つ ぎ に 、 MO VE 文 で 動か すん だ 。 


が めん スプ ライ ト 


画面 に 出 て こない 原因 と し て 考え られ る の は 、 SPRITE 
ON か MOVE の 実行 を 忘れ て いな いか 、 も う 一 度 チ ェ ッ ク 
人 と と だ 。BG 面 に 文字 を 書く と き は 、 PR INT 文 を 使う 
の だ けれ と 、 アー メキ ャ ラク ター は DEF MOVE と MOVE 
を 使う ん だ 。 ア ニ メ キ ャ ラク ター は スプ ライ ト と よ ば れ 、 ちょ 
うど 、 ア ニ メ の セル 画 背景 
に か さる ね 、 動か し て いる も の 
と 考え れ ば いい 。 し か も この 
セル 画 は 、 背景 の う し ろ に も 
も っ て いく こと が で きる ん だ 。 
いろ いろ 考え た れ ば 、 問 題 は 解 
決し て いく も の だ た: 
まず は や っ て みる 
べし ./ 


し 


スプ ライ ト 面 : 


4 る けれ と も 、 上 様 の 生 較 は 、 「 
ヨ に 0 か ら 27 で 、 タ Tl 
コ 方 向 ま テ 方 0 
向 に 0 か ら 23 の 範囲 だ 。PR INT 廊 で は 、 開 距 揚 
この 範囲 に し か 壇 字 を 書く こと が で き な い 。 こ 93 
の 数 値 の 範囲 は 、 し LOCA TE 訪 の 藝 囲い っ し ょ だ 。 こ 


と ころ が スプ ライ ト (アニ メキ ャ ラク ター) の ば あい は ヨコ ュ 、 
タテ と も 255 の 範囲 を も つ 。 

ke BG と スプ ライ ト 面 の 座標 は どの よう 
に er る の か を 説明 し て お こ 科 。 BG の キ 
ャ ラク ター は 、 8 X8 ド ッ ト で 構成 され て いる の 
で 、 逆 に スプ ライ ト 面 を 8 ドッ ト ご と に 分 割 する 
と 、 ョ コ ュ 方 向 に 32 文 字 分 、 タテ 方 向 に 30 壇 字 分 の 
大 き さ を も っ て いる 。 こ れ を BG 面 に 合わ せる と 、 
ちょ うど 上 と 下 に 3 行 分 、 左 と に 2 文字 分 ずつ 
カッ ト し て いる 形 に な る 。 だ か ら 、 BG と スプ ラ 
イト の か さき な り を 判定 する た め に は 、 こ の プレ を 
考え な が ら お こ な わな けれ は ば な ら な い の た 。 
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